Labels:text | screenshot | software | display | computer icon | multimedia software | graphics software | web page | operating system OCR: File Edit Object View Run Window Ready Class - clsImportTable btnImportTable Properties T 2. 3 Did labo OK Import File Name Bitmap KF fldFileName Click x Sub Click( ............ Import Table Item 1 DIM vNumCols, vNumRows AS Long 1 DIM vAns, vFileNum, vBlzType AS Integer Delimiter Type tem 1 DIM vDBType, vFileName, vTableName, vDelim AS String DIM vOrclType, vName, vColumns, vInString, vOutString AS String Database Type tem 1 DIM vSessObj AS Object REDIM vColNames(1), vColTypes(1), vColValues(1) AS String Import Cancel DIM vLastPos, vCurPos as integer vTableName = popTables.value CEIL vFileName = fldFileName. value vDBType = popDBase. value vSessObj = clsImportTable.popTables. GetRecordSet.getsession IF IsNull(vTableName) then MSGBOX "You must select a table to import into" ELSEIF IsNull(vFileName) then MSGBOX "You must enter the imput file name" ELSEIF IsNull(vDBType) then youth_quest BOOK MSGBOX "You must enter a Database type" ELSE vAns = MSGBOX("Import data into "+vTableName+" from "+vFileName, 4) IF vAns = 6 THEN Export_Import BookEntry application.setcursor (1 ) vFileNum = FreeFile() OPEN vFileName FOR INPUT ACCESS READ AS vFileNum vDelim = popDelim.value IF vDelim = "Tab" then vDelim = chr$(9) ELSEIF IsNull(vDelim) then vDelim = CHR$(9) END IF IF EOF (vFileNum) = true THEN application.setcursor(0) MSGBOX vFileName + "is empty" EXIT SUB END IF Line Input # vFileNum, vInString vLastPos = 1 vNumCols = 0 vCurPos = 1 WHILE vCurPos <> 0 yCurPos = InStr (vLastPos, vInString, vDelim) IF vNumCols > 0 THEN BEDIM PRESERVE yCollames( \bumCols + 1)
